program Pointer;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  intArray = array [0..99] of integer;
var
  i : integer;
  a : ^integer;
begin
  new(a);
    for i := 0 to 99 do
    c[i] := i;
  dispose(a);

end.
 